home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcp_rgvm.arc / RGVMO.CMD
Encoding:
Text File  |  1987-06-15  |  4.6 KB  |  192 lines
  1. ASSI S5"12"       ; 1200 Baud PCP Access Only !!! or DIRECT 2400/1200/300
  2. ASSI S6"xxxxxxxx" ;<----- Change to your PC-Pursuit user ID
  3. ASSI S7"xxxxxxxx" ;<---- Change to your PC-Pursuit password
  4. SET PARI EVEN            ;
  5. SET DATA 7             ;MAKE SURE YOU CHANGE THE PC-PURSUIT LOCAL
  6. GOTO START                 ;ACCESS PHONE NUMBER IN THE FILE PCP.CMD !!
  7.                            ;put your entries in without extra spaces
  8.              ; Your Local PCP Phone Number Must Be Entered On Line # 34
  9.  
  10. ;=============================================================================
  11. ;               <<*- "Y" MODEM PREFERRED FOR PC PURSUIT -*>>
  12. ; This is a special parameter logon script using a "secret PCP code"
  13. : that uniquely translates the blocks & media connection... it will offer
  14. ; the most reliable connection once established.. BUT, since it directs
  15. ; a link outside of the regular channels... you will not be able to break
  16. ; out into command mode to dial another City, but you could dial another
  17. ; SEATTLE number..... BUT YOU MUST HANG UP AFTER SEATTLE, before dialing
  18. ; ANOTHER CITY.....because this special access is outside the command mode.
  19. ; You will find that this special parameter translation will increase the
  20. ; transfer speed about 35%, and reliability up about 75%...... Welcome !!
  21. ;  P.S. [ Don't Judge Us By This Alone, Come On In..!! ]
  22. ;                                              The RGVMO Consultant Library
  23. ;============================================================================
  24.  
  25. PCPDIAL:
  26. SET CR_IN CR
  27. CLEA
  28. LOCA 2,0
  29. CLEA
  30. SET PARI EVEN
  31. SET DATA 7
  32. MESS"< Processing > Entry to PCP"
  33. TRAN"ATDT"
  34. TRAN"xxxxxxx" ;<------- Insert your local PC-Pursuit access
  35. TRAN"!"                 ;number.  Check Upper Script for PASSWORD,
  36. TRAN"^M"                ; use "1170,xxxxxxx" to disable CALLWAITING
  37. WAIT "CONNECT" 15         ;and ID, review all entries for exactness.
  38. IF NOT WAITFOR
  39. CLEA
  40. HANG
  41. MESS"PCP TELENET IS BUSY.  RE< Processing >..."
  42. GOTO PCPDIAL
  43. ELSE
  44. PAUS 2
  45. TRAN "^m^m"
  46. WAIT "="
  47. TRAN "D1!"
  48. WAIT "@"
  49. AREACODE:
  50. CLEA
  51. LOCA 1,0
  52. TRAN"C DIAL"
  53. TRAN S2
  54. TRAN"/"
  55. TRAN S5
  56. TRAN","
  57. TRAN S6
  58. TRAN"!"
  59. WAIT"="
  60. TRAN S7
  61. TRAN"!"
  62. CLEA
  63. RGET S0
  64. RGET S0
  65. RGET S0
  66. FIND S0"CONNECT"
  67. IF  FOUN
  68. GOTO BEGIN
  69. ELSE
  70. ALAR 1
  71. LOCA 3,0
  72. MESS S1
  73. MESS"IS NOT AVAILABLE NOW...."
  74. MESS" "
  75. MESS"Redial SEATTLE and try to get in (Y/n) ?"
  76. LOCA 6,42
  77. GET S0 1
  78. FIND S0"N"
  79. IF FOUN
  80. MESSAGE"RGVMO Logon Script Terminated..PCP Local Online..."
  81. EXIT
  82. ELSE
  83. GOTO AREACODE
  84. ENDI
  85. START:
  86. CLEA
  87. LOCA 5,0
  88. MESS" Logon to 7800+ PRGMS: "
  89. MESS"                          ╔═════╗ ╔═════╗ ╔═╗ ╔═╗ ╔═════╗  "
  90. MESS"                          ║ ╔═╗ ║ ║ ╔═╗ ║ ║ ║ ║ ║ ║ ╔═══╝  "
  91. MESS"                          ║ ║ ║ ║ ║ ╚═╝ ║ ║ ║ ║ ║ ║ ╚═══╗  "
  92. MESS"                          ║ ║ ║ ║ ║ ╔═══╝ ║ ║ ║ ║ ╚═══╗ ║  "
  93. MESS"                          ║ ╚═╝ ║ ║ ║     ║ ╚═╝ ║     ║ ║  "
  94. MESS"                          ╚═════╝ ╚═╝     ╚═════╝     ║ ║  "
  95. MESS"                          ╔═══════════════════════════╝ ║  "
  96. MESS"                          ╚═════════════════════════════╝  "
  97. MESS"                       ╔═══[The RGVMO Consultant Library]══╗ "
  98. MESS"                       ║    Box 2349, Seattle, WA  98111   ║ "
  99. MESS"                       ╚═══════════════════════════════════╝ "
  100. MESS"                             [ D ]=DIAL  /  [ X ]=EXIT  "
  101. MESS"                                     -=>            "
  102. CHOICES:
  103. LOCA 18,41
  104. MESS"       "
  105. LOCA 18,42
  106. GET S0 1
  107. SWIT S0
  108. CASE"D"
  109. ASSI S1"SEATTLE"
  110. ASSI S2"206"
  111. ASSI S3"The RGVMO Consultant Library"
  112. GOTO PCPDIAL
  113. ENDC
  114. CASE"X"
  115. CLEA
  116. MESS"Returning to PROCOMM Terminal Mode...."
  117. SET PARI EVEN
  118. SET DATA 8
  119. PAUS 1
  120. CLEA
  121. HANG
  122. MESS"   < PROCOMM TERMINAL ACTIVE > "
  123. EXIT
  124. ENDC
  125. CASE"_NULL"
  126. LOCA 22,24
  127. MESS"^G"
  128. LOCA 22,24
  129. MESS"Ooops...Try That Again....."
  130. LOCA 22,24
  131. PAUS 2
  132. MESS"                             "
  133. GOTO CHOICES
  134. ENDC
  135. DEFA
  136. LOCA 22,24
  137. MESS"^G"
  138. LOCA 22,24
  139. MESS"Ooops...Try That Again....."
  140. LOCA 22,24
  141. PAUS 2
  142. MESS"                                 "
  143. GOTO CHOICES
  144. ENDC
  145. ENDS
  146. BEGIN:
  147. ASSI S1"SEATTLE, WA"
  148. REDIAL:
  149. CLEA
  150. LOCA 4,0
  151. MESS"PCP INITIALIZED ONLINE"
  152. MESS S1
  153. MESS"< Processing Access to: >"
  154. MESS S3
  155. TRAN"ATZ!"
  156. WAIT"OK" 10
  157. TRAN"@!"
  158. WAIT"@"
  159. TRAN"SET? 1:0,10:0!"
  160. WAIT"@"
  161. TRAN"CONT!"
  162. PAUS 2
  163. TRAN"ATDT"
  164. TRAN"2557120"
  165. TRAN"!"
  166. RGET S0
  167. RGET S0 80 40
  168. RGET S0
  169. PAUS 2
  170. FIND S0"CONNECT"
  171. IF FOUN
  172. SET PARI NONE
  173. SET DATA 8
  174. TRAN"^M^M"
  175. ALAR 2
  176. EXIT
  177. ELSE
  178. ALAR 1
  179. LOCA 11,0
  180. MESS S3
  181. MESS"IS NOT AVAILABLE NOW...."
  182. MESS" "
  183. MESS"Do you want to try dialing it again (Y/n) ?"
  184. LOCA 14,47
  185. GET S0 1
  186. FIND S0"N"
  187. IF FOUN
  188. GOTO BEGIN
  189. ELSE
  190. GOTO REDIAL
  191. ENDI
  192.